(set-auto-mode): Run multiple mode: specs in left-to-right order.

diff --git a/lisp/files.el b/lisp/files.el
index 6ca1b5a7c8b2bb7dc63abb8ecff8c44b2cf61915..44b637f9ff1204fdfabd5fda4a12df320b4dada6 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1149,7 +1149,7 @@ If `enable-local-variables' is nil, this function does not check for a
     ;; If we found modes to use, invoke them now,
     ;; outside the save-excursion.
     (if modes
-       (progn (mapcar 'funcall modes)
+       (progn (mapcar 'funcall (nreverse modes))
               (setq done t)))
     ;; If we didn't find a mode from a -*- line, try using the file name.
     (if (and (not done) buffer-file-name)